home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / dev / src / fmtstrutil.lha / putchprocs.s < prev   
Text File  |  1996-10-26  |  767b  |  27 lines
  1. ; ============================================================================ ;
  2. ; $Id: putchprocs.s,v 1.1 1996/10/20 21:35:32 d93-hyo Stab $
  3. ; ---------------------------------------------------------------------------- ;
  4. ; Various "PutChProc" functions for use with exec.library/RawDoFmt().
  5. ;
  6. ; Copyright © 1996 Lorens Younes (d93-hyo@nada.kth.se)
  7. ; ============================================================================ ;
  8.  
  9.     xdef    _SimplePutChar    ; adds character to data
  10.     xdef    _DummyPutChar    ; does nothing
  11.     xdef    _CountChar    ; increases data with one (data is a counter)
  12.  
  13. ; ============================================================================ ;
  14.  
  15.     section    code
  16.  
  17. _SimplePutChar:
  18.     move.b    d0,(a3)+
  19. _DummyPutChar:
  20.     rts
  21.  
  22. _CountChar:
  23.     addq.l    #1,(a3)
  24.     rts
  25.  
  26.     end
  27.